EDUCORP 8

home *** CD-ROM | disk | FTP | other *** search
/ EDUCORP 8 / Educorp2Compilation.sit / educorp2 / Programming (2300, 7000) / 2309 Programming v.7 / Labours of Love / PopUp Menu Folder / PopupDemo.asm < prev next >
MacBinary | 1988-03-14 | 4.4 KB | [TEXT/EDIT]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: PopupDemo.asm
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Mon Mar 14 05:18:57 1988, modified Mon Mar 14 05:18:57 1988, creator Macintosh Edit, type ASCII, 3854 bytes "PopupDemo.asm" , at 0xf8e 348 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[EDIT]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 50 6f 70 75 70 44 | 65 6d 6f 2e 61 73 6d 00 |..PopupD|emo.asm.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 0f 0e 00 | 00 01 5c 9e 61 64 11 9e |........|..\.ad..|
|00000060| 61 64 11 00 00 06 00 00 | 00 00 00 00 00 00 00 00 |ad......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 78 78 00 00 |........|....xx..|
|00000080| 09 70 72 74 72 09 22 2f | 45 2f 24 34 35 22 09 3b |.prtr."/|E/$45".;|
|00000090| 20 49 6d 61 67 65 57 72 | 69 74 65 72 20 73 65 74 | ImageWr|iter set|
|000000a0| 20 74 6f 20 45 6c 69 74 | 65 2e 0d 20 09 74 69 74 | to Elit|e.. .tit|
|000000b0| 6c 65 09 22 24 22 09 09 | 3b 20 44 61 74 65 20 69 |le."$"..|; Date i|
|000000c0| 6e 20 50 61 67 65 27 73 | 20 48 65 61 64 65 72 2e |n Page's| Header.|
|000000d0| 0d 09 74 65 72 73 65 09 | 09 09 3b 20 4f 70 74 69 |..terse.|..; Opti|
|000000e0| 6f 6e 61 6c 2e 0d 09 0d | 0d 09 20 0d 3b 20 22 50 |onal....|.. .; "P|
|000000f0| 6f 70 75 70 44 65 6d 6f | 2e 61 73 6d 22 0d 3b 20 |opupDemo|.asm".; |
|00000100| 2d 2d 20 61 20 71 75 69 | 63 6b 20 64 65 6d 6f 6e |-- a qui|ck demon|
|00000110| 73 74 72 61 74 69 6f 6e | 20 6f 66 20 50 6f 70 75 |stration| of Popu|
|00000120| 70 20 73 75 62 2d 4d 65 | 6e 75 73 0d 3b 0d 3b 20 |p sub-Me|nus.;.; |
|00000130| 4f 72 69 67 69 6e 61 6c | 6c 79 20 62 79 20 4d 69 |Original|ly by Mi|
|00000140| 6b 65 20 53 63 68 75 73 | 74 65 72 20 69 6e 20 50 |ke Schus|ter in P|
|00000150| 61 73 63 61 6c 20 20 28 | 4d 61 63 54 75 74 6f 72 |ascal  (|MacTutor|
|00000160| 2c 20 44 65 63 20 38 35 | 29 0d 3b 0d 3b 20 41 64 |, Dec 85|).;.; Ad|
|00000170| 61 70 74 65 64 20 74 6f | 20 36 38 30 30 30 20 43 |apted to| 68000 C|
|00000180| 6f 64 65 20 62 79 20 4a | 6f 68 6e 20 41 2e 20 4c |ode by J|ohn A. L|
|00000190| 6f 76 65 2c 20 49 49 49 | 0d 3b 20 7b 20 66 72 6f |ove, III|.; { fro|
|000001a0| 6d 3a 20 57 61 73 68 69 | 6e 67 74 6f 6e 20 41 70 |m: Washi|ngton Ap|
|000001b0| 70 6c 65 20 50 69 20 55 | 73 65 72 73 27 20 47 72 |ple Pi U|sers' Gr|
|000001c0| 6f 75 70 20 7d 0d 3b 0d | 3b 20 5b 20 75 73 69 6e |oup }.;.|; [ usin|
|000001d0| 67 20 22 4d 63 41 73 73 | 65 6d 62 6c 79 22 20 28 |g "McAss|embly" (|
|000001e0| 76 37 2e 33 29 20 66 72 | 6f 6d 20 53 69 67 6e 61 |v7.3) fr|om Signa|
|000001f0| 74 75 72 65 20 53 6f 66 | 74 77 61 72 65 20 5d 0d |ture Sof|tware ].|
|00000200| 0d 0d 0d 3b 20 49 4e 43 | 4c 55 44 45 20 66 69 6c |...; INC|LUDE fil|
|00000210| 65 73 20 3a 20 52 65 67 | 69 73 74 65 72 54 72 61 |es : Reg|isterTra|
|00000220| 70 73 2e 50 53 4d 0d 3b | 09 09 20 20 51 75 69 63 |ps.PSM.;|..  Quic|
|00000230| 6b 45 71 75 2e 50 53 4d | 0d 3b 09 09 20 20 53 79 |kEqu.PSM|.;..  Sy|
|00000240| 73 45 71 75 2e 50 53 4d | 0d 3b 09 09 20 20 54 6f |sEqu.PSM|.;..  To|
|00000250| 6f 6c 45 71 75 2e 50 53 | 4d 0d 3b 0d 3b 20 20 20 |olEqu.PS|M.;.;   |
|00000260| 77 69 74 68 20 4c 49 53 | 54 69 6e 67 20 74 75 72 |with LIS|Ting tur|
|00000270| 6e 65 64 20 6f 66 66 2e | 0d 0d 0d 09 4c 49 53 54 |ned off.|....LIST|
|00000280| 09 30 09 09 3b 20 4f 46 | 46 2e 0d 09 0d 09 69 70 |.0..; OF|F.....ip|
|00000290| 61 74 68 09 22 48 44 3a | 4d 63 41 73 6d 20 46 6f |ath."HD:|McAsm Fo|
|000002a0| 6c 64 65 72 3a 47 65 6e | 65 72 61 6c 20 20 46 69 |lder:Gen|eral  Fi|
|000002b0| 6c 65 73 20 20 46 6f 6c | 64 65 72 3a 42 6f 6f 74 |les  Fol|der:Boot|
|000002c0| 20 54 52 41 50 73 20 46 | 6f 6c 64 65 72 3a 22 0d | TRAPs F|older:".|
|000002d0| 09 69 6e 63 6c 09 22 52 | 65 67 69 73 74 65 72 54 |.incl."R|egisterT|
|000002e0| 72 61 70 73 2e 50 53 4d | 22 0d 09 69 70 61 74 68 |raps.PSM|"..ipath|
|000002f0| 09 22 48 44 3a 4d 63 41 | 73 6d 20 46 6f 6c 64 65 |."HD:McA|sm Folde|
|00000300| 72 3a 47 65 6e 65 72 61 | 6c 20 20 46 69 6c 65 73 |r:Genera|l  Files|
|00000310| 20 20 46 6f 6c 64 65 72 | 3a 42 6f 6f 74 20 45 51 |  Folder|:Boot EQ|
|00000320| 55 61 74 65 73 20 46 6f | 6c 64 65 72 3a 22 0d 09 |Uates Fo|lder:"..|
|00000330| 69 6e 63 6c 09 22 51 75 | 69 63 6b 45 71 75 2e 50 |incl."Qu|ickEqu.P|
|00000340| 53 4d 22 09 0d 09 69 6e | 63 6c 09 22 53 79 73 45 |SM"...in|cl."SysE|
|00000350| 71 75 2e 50 53 4d 22 0d | 09 69 6e 63 6c 09 22 54 |qu.PSM".|.incl."T|
|00000360| 6f 6f 6c 45 71 75 2e 50 | 53 4d 22 0d 09 0d 09 4c |oolEqu.P|SM"....L|
|00000370| 49 53 54 09 31 09 09 3b | 20 42 61 63 6b 20 4f 4e |IST.1..;| Back ON|
|00000380| 2e 0d 09 0d 09 0d 09 66 | 73 69 67 6e 09 27 4d 41 |.......f|sign.'MA|
|00000390| 43 54 27 0d 09 66 74 79 | 70 65 09 27 41 50 50 4c |CT'..fty|pe.'APPL|
|000003a0| 27 0d 09 6e 61 6d 65 09 | 50 4f 50 44 0d 0d 0d 09 |'..name.|POPD....|
|000003b0| 54 43 4f 4d 50 09 09 09 | 3b 20 54 75 72 6e 20 6f |TCOMP...|; Turn o|
|000003c0| 6e 20 74 68 65 20 54 72 | 61 70 20 43 6f 6d 70 69 |n the Tr|ap Compi|
|000003d0| 6c 65 72 2e 0d 0d 0d 09 | 3b 20 46 55 4e 43 54 49 |ler.....|; FUNCTI|
|000003e0| 4f 4e 20 20 50 6f 70 75 | 70 53 65 6c 65 63 74 20 |ON  Popu|pSelect |
|000003f0| 28 6d 65 6e 75 48 64 6c | 3a 20 48 61 6e 64 6c 65 |(menuHdl|: Handle|
|00000400| 3b 20 68 69 74 50 74 3a | 20 50 6f 69 6e 74 29 3a |; hitPt:| Point):|
|00000410| 20 4c 4f 4e 47 49 4e 54 | 3b 0d 09 58 52 45 46 09 | LONGINT|;..XREF.|
|00000420| 50 6f 70 75 70 53 65 6c | 65 63 74 09 3b 20 50 6f |PopupSel|ect.; Po|
|00000430| 70 75 70 20 4d 65 6e 75 | 20 72 6f 75 74 69 6e 65 |pup Menu| routine|
|00000440| 2e 0d 09 0d 09 0d 09 09 | 61 35 73 65 63 09 09 09 |........|a5sec...|
|00000450| 3b 20 50 6c 61 63 65 73 | 20 74 6f 20 73 74 75 66 |; Places| to stuf|
|00000460| 66 20 73 74 75 66 66 2e | 0d 45 76 65 6e 74 09 09 |f stuff.|.Event..|
|00000470| 62 79 74 65 09 65 76 74 | 42 6c 6b 53 69 7a 65 09 |byte.evt|BlkSize.|
|00000480| 3b 20 45 76 65 6e 74 20 | 52 65 63 6f 72 64 2e 0d |; Event |Record..|
|00000490| 57 69 6e 64 6f 77 09 09 | 70 6f 69 6e 74 65 72 09 |Window..|pointer.|
|000004a0| 09 09 3b 20 57 69 6e 64 | 6f 77 20 50 6f 72 74 2e |..; Wind|ow Port.|
|000004b0| 0d 62 6f 78 09 09 72 65 | 63 74 09 09 09 3b 20 57 |.box..re|ct...; W|
|000004c0| 68 65 72 65 20 49 63 6f | 6e 20 61 70 70 65 61 72 |here Ico|n appear|
|000004d0| 73 2e 0d 09 09 61 35 65 | 6e 64 0d 09 0d 0d 3b 20 |s....a5e|nd....; |
|000004e0| 53 6f 6d 65 20 73 61 66 | 65 20 73 68 65 6c 74 65 |Some saf|e shelte|
|000004f0| 72 73 3a 0d 69 63 6f 6e | 48 64 6c 09 09 72 65 71 |rs:.icon|Hdl..req|
|00000500| 75 09 61 32 09 09 3b 20 | 54 77 6f 20 48 61 6e 64 |u.a2..; |Two Hand|
|00000510| 6c 65 73 20 2e 2e 2e 0d | 70 6f 70 75 70 4d 65 6e |les ....|popupMen|
|00000520| 75 48 64 6c 09 72 65 71 | 75 09 61 33 0d 0d 09 0d |uHdl.req|u.a3....|
|00000530| 09 09 0d 09 09 4c 4f 43 | 0d 0d 49 6e 69 74 4d 61 |.....LOC|..InitMa|
|00000540| 6e 61 67 65 72 73 09 5f | 4d 6f 72 65 4d 61 73 74 |nagers._|MoreMast|
|00000550| 65 72 73 09 09 3b 20 50 | 72 65 76 65 6e 74 20 48 |ers..; P|revent H|
|00000560| 65 61 70 20 66 72 61 67 | 6d 65 6e 74 61 74 69 6f |eap frag|mentatio|
|00000570| 6e 2e 0d 09 0d 09 09 6d | 6f 76 65 2e 6c 09 23 24 |n......m|ove.l.#$|
|00000580| 38 46 46 46 46 46 46 46 | 2c 64 30 09 3b 20 41 73 |8FFFFFFF|,d0.; As|
|00000590| 6b 20 66 6f 72 20 6c 6f | 74 73 20 74 6f 20 63 6f |k for lo|ts to co|
|000005a0| 6d 70 61 63 74 20 48 65 | 61 70 2e 0d 09 09 5f 4e |mpact He|ap...._N|
|000005b0| 65 77 48 61 6e 64 6c 65 | 0d 09 09 0d 09 09 49 6e |ewHandle|......In|
|000005c0| 69 74 47 72 61 66 09 21 | 2d 34 28 61 35 29 09 3b |itGraf.!|-4(a5).;|
|000005d0| 20 28 41 35 29 20 2d 2d | 3e 20 74 68 65 50 6f 72 | (A5) --|> thePor|
|000005e0| 74 2e 0d 09 09 49 6e 69 | 74 46 6f 6e 74 73 0d 09 |t....Ini|tFonts..|
|000005f0| 09 49 6e 69 74 57 69 6e | 64 6f 77 73 0d 09 09 49 |.InitWin|dows...I|
|00000600| 6e 69 74 4d 65 6e 75 73 | 0d 09 09 54 45 49 6e 69 |nitMenus|...TEIni|
|00000610| 74 0d 09 09 49 6e 69 74 | 44 69 61 6c 6f 67 73 09 |t...Init|Dialogs.|
|00000620| 23 30 09 3b 20 4e 6f 20 | 52 65 2d 73 74 61 72 74 |#0.; No |Re-start|
|00000630| 20 50 72 6f 63 65 64 75 | 72 65 2e 0d 09 0d 09 09 | Procedu|re......|
|00000640| 6d 6f 76 65 2e 6c 09 23 | 24 30 30 30 30 46 46 46 |move.l.#|$0000FFF|
|00000650| 46 2c 64 30 09 3b 20 53 | 74 6f 70 20 4d 61 73 6b |F,d0.; S|top Mask|
|00000660| 20 3d 20 30 0d 09 09 5f | 46 6c 75 73 68 45 76 65 | = 0..._|FlushEve|
|00000670| 6e 74 73 09 09 3b 20 2b | 20 61 6c 6c 20 31 36 20 |nts..; +| all 16 |
|00000680| 45 76 65 6e 74 73 20 3d | 20 24 46 46 46 46 2e 0d |Events =| $FFFF..|
|00000690| 09 0d 09 09 49 6e 69 74 | 43 75 72 73 6f 72 0d 3b |....Init|Cursor.;|
|000006a0| 20 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d | =======|========|
|000006b0| 0d 64 72 61 77 49 63 6f | 6e 09 47 65 74 57 4d 67 |.drawIco|n.GetWMg|
|000006c0| 72 50 6f 72 74 09 21 57 | 69 6e 64 6f 77 0d 09 09 |rPort.!W|indow...|
|000006d0| 53 65 74 50 6f 72 74 09 | 57 69 6e 64 6f 77 09 09 |SetPort.|Window..|
|000006e0| 09 3b 20 61 20 57 69 6e | 64 6f 77 20 50 6f 69 6e |.; a Win|dow Poin|
|000006f0| 74 65 72 20 3d 20 61 20 | 47 72 61 66 50 74 72 2e |ter = a |GrafPtr.|
|00000700| 0d 09 09 6d 6f 76 65 2e | 6c 09 57 69 6e 64 6f 77 |...move.|l.Window|
|00000710| 2c 61 30 0d 09 09 43 6c | 69 70 52 65 63 74 09 21 |,a0...Cl|ipRect.!|
|00000720| 70 6f 72 74 52 65 63 74 | 28 61 30 29 0d 09 09 53 |portRect|(a0)...S|
|00000730| 65 74 52 65 63 74 09 21 | 62 6f 78 2c 23 32 34 30 |etRect.!|box,#240|
|00000740| 2c 23 31 30 30 2c 23 32 | 37 32 2c 23 31 33 32 20 |,#100,#2|72,#132 |
|00000750| 20 20 3b 20 47 6c 6f 62 | 61 6c 20 63 6f 6f 72 64 |  ; Glob|al coord|
|00000760| 20 28 6c 2c 74 2c 72 2c | 62 29 2e 0d 09 09 3b 20 | (l,t,r,|b)....; |
|00000770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00000780| 09 09 6d 6f 76 65 2e 6c | 09 23 31 32 38 2c 64 30 |..move.l|.#128,d0|
|00000790| 09 09 09 3b 20 49 43 4f | 4e 20 64 61 74 61 20 3d |...; ICO|N data =|
|000007a0| 20 33 32 78 33 32 20 62 | 69 74 73 2e 0d 09 09 5f | 32x32 b|its...._|
|000007b0| 4e 65 77 50 74 72 09 09 | 09 09 3b 20 47 65 74 20 |NewPtr..|..; Get |
|000007c0| 50 6f 69 6e 74 65 72 20 | 74 6f 20 49 63 6f 6e 20 |Pointer |to Icon |
|000007d0| 42 69 74 20 4d 61 70 2e | 0d 09 09 6c 65 61 09 49 |Bit Map.|...lea.I|
|000007e0| 63 6f 6e 4d 61 70 2c 61 | 31 09 09 3b 20 2e 2e 2e |conMap,a|1..; ...|
|000007f0| 20 48 61 6e 64 6c 65 2e | 0d 09 09 6d 6f 76 65 2e | Handle.|...move.|
|00000800| 6c 09 61 30 2c 28 61 31 | 29 09 09 09 3b 20 4e 65 |l.a0,(a1|)...; Ne|
|00000810| 77 20 50 6f 69 6e 74 65 | 72 20 69 6e 74 6f 20 42 |w Pointe|r into B|
|00000820| 69 74 20 4d 61 70 2e 0d | 09 09 3b 20 2d 2d 2d 2d |it Map..|..; ----|
|00000830| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 09 09 3b 20 |--------|---...; |
|00000840| 54 79 70 65 2c 52 65 73 | 43 6f 75 6e 74 2c 3d 48 |Type,Res|Count,=H|
|00000850| 61 6e 64 6c 65 0d 09 09 | 47 65 74 31 49 78 52 65 |andle...|Get1IxRe|
|00000860| 73 6f 75 72 63 65 09 23 | 27 49 43 4e 23 27 2c 23 |source.#|'ICN#',#|
|00000870| 31 2c 3d 61 30 09 3b 20 | 54 68 69 73 20 61 70 70 |1,=a0.; |This app|
|00000880| 6c 69 63 61 74 69 6f 6e | 27 73 20 49 43 4f 4e 2e |lication|'s ICON.|
|00000890| 0d 09 09 63 6d 70 61 2e | 6c 09 23 30 2c 61 30 09 |...cmpa.|l.#0,a0.|
|000008a0| 09 09 3b 20 48 61 6e 64 | 6c 65 20 3d 20 4e 49 4c |..; Hand|le = NIL|
|000008b0| 20 3f 3f 0d 09 09 62 65 | 71 09 65 6e 64 09 09 09 | ??...be|q.end...|
|000008c0| 3b 20 53 68 6f 75 6c 64 | 20 4e 4f 54 20 68 61 70 |; Should| NOT hap|
|000008d0| 70 65 6e 20 21 21 0d 09 | 09 5f 48 4c 6f 63 6b 09 |pen !!..|._HLock.|
|000008e0| 09 09 09 3b 20 2e 2e 2e | 20 74 69 67 68 74 65 72 |...; ...| tighter|
|000008f0| 20 74 68 61 6e 20 61 20 | 64 72 75 6d 20 21 21 0d | than a |drum !!.|
|00000900| 09 09 6d 6f 76 65 2e 6c | 09 61 30 2c 69 63 6f 6e |..move.l|.a0,icon|
|00000910| 48 64 6c 09 09 3b 20 53 | 61 76 65 20 66 6f 72 20 |Hdl..; S|ave for |
|00000920| 64 69 73 70 6f 73 69 6e | 67 20 6f 66 20 6c 61 74 |disposin|g of lat|
|00000930| 65 72 2e 0d 09 09 6d 6f | 76 65 2e 6c 09 28 61 30 |er....mo|ve.l.(a0|
|00000940| 29 2c 61 30 09 09 09 3b | 20 42 69 74 4d 61 70 20 |),a0...;| BitMap |
|00000950| 73 6f 75 72 63 65 20 50 | 6f 69 6e 74 65 72 2e 0d |source P|ointer..|
|00000960| 09 09 6c 65 61 09 49 63 | 6f 6e 4d 61 70 2c 61 31 |..lea.Ic|onMap,a1|
|00000970| 0d 09 09 6d 6f 76 65 2e | 6c 09 28 61 31 29 2c 61 |...move.|l.(a1),a|
|00000980| 31 09 09 09 3b 20 42 69 | 74 4d 61 70 20 64 65 73 |1...; Bi|tMap des|
|00000990| 74 69 6e 61 74 69 6f 6e | 20 50 6f 69 6e 74 65 72 |tination| Pointer|
|000009a0| 2e 0d 09 09 6d 6f 76 65 | 2e 6c 09 23 31 32 38 2c |....move|.l.#128,|
|000009b0| 64 30 09 09 09 3b 20 53 | 69 7a 65 20 69 6e 70 75 |d0...; S|ize inpu|
|000009c0| 74 20 74 6f 20 5f 4e 65 | 77 50 74 72 2e 0d 09 09 |t to _Ne|wPtr....|
|000009d0| 5f 42 6c 6f 63 6b 4d 6f | 76 65 0d 09 09 3b 20 2d |_BlockMo|ve...; -|
|000009e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 09 |--------|------..|
|000009f0| 09 50 6c 6f 74 49 63 6f | 6e 09 21 62 6f 78 2c 21 |.PlotIco|n.!box,!|
|00000a00| 49 63 6f 6e 4d 61 70 09 | 3b 20 50 6c 6f 74 20 74 |IconMap.|; Plot t|
|00000a10| 68 69 73 20 73 75 63 6b | 65 72 20 21 21 0d 3b 20 |his suck|er !!.; |
|00000a20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00000a30| 63 72 65 61 74 65 4d 65 | 6e 75 09 4e 65 77 4d 65 |createMe|nu.NewMe|
|00000a40| 6e 75 09 23 31 31 31 2c | 21 6d 54 69 74 6c 65 2c |nu.#111,|!mTitle,|
|00000a50| 3d 70 6f 70 75 70 4d 65 | 6e 75 48 64 6c 20 20 20 |=popupMe|nuHdl   |
|00000a60| 3b 20 50 6f 73 69 74 69 | 76 65 20 49 44 20 2b 20 |; Positi|ve ID + |
|00000a70| 54 69 74 6c 65 2e 0d 09 | 09 6d 6f 76 65 2e 6c 09 |Title...|.move.l.|
|00000a80| 70 6f 70 75 70 4d 65 6e | 75 48 64 6c 2c 61 30 0d |popupMen|uHdl,a0.|
|00000a90| 09 09 5f 48 4c 6f 63 6b | 09 09 09 09 3b 20 2e 2e |.._HLock|....; ..|
|00000aa0| 2e 20 75 70 20 74 69 67 | 68 74 2e 0d 09 09 62 72 |. up tig|ht....br|
|00000ab0| 61 2e 73 09 2e 31 0d 6d | 54 69 74 6c 65 09 09 74 |a.s..1.m|Title..t|
|00000ac0| 65 78 74 09 22 2f 30 22 | 09 09 09 3b 20 4e 6f 20 |ext."/0"|...; No |
|00000ad0| 74 69 74 6c 65 2e 0d 09 | 09 61 6c 69 67 6e 0d 2e |title...|.align..|
|00000ae0| 31 09 09 41 70 70 65 6e | 64 4d 65 6e 75 09 70 6f |1..Appen|dMenu.po|
|00000af0| 70 75 70 4d 65 6e 75 48 | 64 6c 2c 21 70 6f 70 75 |pupMenuH|dl,!popu|
|00000b00| 70 49 74 65 6d 73 0d 09 | 09 62 72 61 2e 73 09 67 |pItems..|.bra.s.g|
|00000b10| 65 74 45 76 65 6e 74 0d | 70 6f 70 75 70 49 74 65 |etEvent.|popupIte|
|00000b20| 6d 73 09 74 65 78 74 09 | 23 22 48 69 20 20 74 68 |ms.text.|#"Hi  th|
|00000b30| 65 72 65 3c 4f 3b 28 2d | 3b 51 75 69 74 22 0d 09 |ere<O;(-|;Quit"..|
|00000b40| 09 61 6c 69 67 6e 0d 3b | 20 3d 3d 3d 3d 3d 3d 3d |.align.;| =======|
|00000b50| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 67 65 74 45 76 65 6e |========|.getEven|
|00000b60| 74 09 47 65 74 4e 65 78 | 74 45 76 65 6e 74 09 23 |t.GetNex|tEvent.#|
|00000b70| 65 76 65 72 79 45 76 65 | 6e 74 2c 21 45 76 65 6e |everyEve|nt,!Even|
|00000b80| 74 2c 3d 64 30 0d 09 09 | 62 65 71 2e 73 09 67 65 |t,=d0...|beq.s.ge|
|00000b90| 74 45 76 65 6e 74 09 09 | 3b 20 4e 75 6c 6c 20 45 |tEvent..|; Null E|
|00000ba0| 76 65 6e 74 2e 0d 09 09 | 3b 20 2d 2d 2d 2d 2d 2d |vent....|; ------|
|00000bb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 09 09 6d 6f 76 65 |--------|-...move|
|00000bc0| 2e 77 09 45 76 65 6e 74 | 2b 65 76 74 4e 75 6d 2c |.w.Event|+evtNum,|
|00000bd0| 64 31 09 09 3b 20 47 65 | 74 20 45 76 65 6e 74 20 |d1..; Ge|t Event |
|00000be0| 6e 75 6d 62 65 72 2e 0d | 09 09 63 6d 70 69 2e 77 |number..|..cmpi.w|
|00000bf0| 09 23 6d 42 75 74 44 77 | 6e 45 76 74 2c 64 31 09 |.#mButDw|nEvt,d1.|
|00000c00| 09 3b 20 43 6c 69 63 6b | 65 64 20 74 68 65 20 6d |.; Click|ed the m|
|00000c10| 6f 75 73 65 20 3f 3f 0d | 09 09 62 6e 65 2e 73 09 |ouse ??.|..bne.s.|
|00000c20| 67 65 74 45 76 65 6e 74 | 09 09 3b 20 49 67 6e 6f |getEvent|..; Igno|
|00000c30| 72 65 20 69 66 20 79 6f | 75 20 64 69 64 6e 27 74 |re if yo|u didn't|
|00000c40| 2e 0d 09 09 3b 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |....; --|--------|
|00000c50| 2d 2d 2d 2d 2d 0d 09 09 | 50 74 49 6e 52 65 63 74 |-----...|PtInRect|
|00000c60| 09 45 76 65 6e 74 2b 65 | 76 74 4d 6f 75 73 65 2c |.Event+e|vtMouse,|
|00000c70| 21 62 6f 78 2c 3d 64 32 | 0d 09 09 62 65 71 2e 73 |!box,=d2|...beq.s|
|00000c80| 09 67 65 74 45 76 65 6e | 74 09 09 3b 20 44 69 64 |.getEven|t..; Did|
|00000c90| 20 4e 4f 54 20 63 6c 69 | 63 6b 20 6f 6e 20 49 63 | NOT cli|ck on Ic|
|00000ca0| 6f 6e 2e 0d 3b 20 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |on..; ==|========|
|00000cb0| 3d 3d 3d 3d 3d 0d 67 65 | 74 4d 65 6e 75 49 74 65 |=====.ge|tMenuIte|
|00000cc0| 6d 09 63 6c 72 2e 6c 09 | 2d 28 73 70 29 09 09 09 |m.clr.l.|-(sp)...|
|00000cd0| 3b 20 46 55 4e 43 54 49 | 4f 4e 61 6c 20 72 65 73 |; FUNCTI|ONal res|
|00000ce0| 75 6c 74 2e 0d 09 09 6d | 6f 76 65 2e 6c 09 70 6f |ult....m|ove.l.po|
|00000cf0| 70 75 70 4d 65 6e 75 48 | 64 6c 2c 2d 28 73 70 29 |pupMenuH|dl,-(sp)|
|00000d00| 0d 09 09 6d 6f 76 65 2e | 6c 09 45 76 65 6e 74 2b |...move.|l.Event+|
|00000d10| 65 76 74 4d 6f 75 73 65 | 2c 2d 28 73 70 29 09 3b |evtMouse|,-(sp).;|
|00000d20| 20 50 61 73 73 65 64 20 | 62 79 20 76 61 6c 75 65 | Passed |by value|
|00000d30| 2e 0d 09 09 62 73 72 09 | 50 6f 70 75 70 53 65 6c |....bsr.|PopupSel|
|00000d40| 65 63 74 0d 09 09 6d 6f | 76 65 2e 6c 09 28 73 70 |ect...mo|ve.l.(sp|
|00000d50| 29 2b 2c 64 31 09 09 3b | 20 4d 65 6e 75 20 49 44 |)+,d1..;| Menu ID|
|00000d60| 20 69 6e 20 68 69 67 68 | 20 77 6f 72 64 0d 09 09 | in high| word...|
|00000d70| 09 09 09 09 3b 20 2b 20 | 49 74 65 6d 20 23 20 69 |....; + |Item # i|
|00000d80| 6e 20 6c 6f 77 20 77 6f | 72 64 2e 0d 09 09 3b 20 |n low wo|rd....; |
|00000d90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00000da0| 09 09 63 6d 70 69 2e 77 | 09 23 31 2c 64 31 0d 09 |..cmpi.w|.#1,d1..|
|00000db0| 09 62 6e 65 2e 73 09 51 | 75 69 74 0d 48 69 09 09 |.bne.s.Q|uit.Hi..|
|00000dc0| 6d 6f 76 65 2e 77 09 23 | 34 2c 2d 28 73 70 29 0d |move.w.#|4,-(sp).|
|00000dd0| 09 09 5f 53 79 73 42 65 | 65 70 0d 09 09 62 72 61 |.._SysBe|ep...bra|
|00000de0| 2e 73 09 67 65 74 45 76 | 65 6e 74 0d 09 09 3b 20 |.s.getEv|ent...; |
|00000df0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00000e00| 51 75 69 74 09 09 63 6d | 70 69 2e 77 09 23 33 2c |Quit..cm|pi.w.#3,|
|00000e10| 64 31 0d 09 09 62 6e 65 | 2e 73 09 67 65 74 45 76 |d1...bne|.s.getEv|
|00000e20| 65 6e 74 0d 09 09 6d 6f | 76 65 2e 6c 09 69 63 6f |ent...mo|ve.l.ico|
|00000e30| 6e 48 64 6c 2c 61 30 09 | 09 3b 20 57 61 76 65 20 |nHdl,a0.|.; Wave |
|00000e40| 62 79 65 2d 62 79 65 20 | 74 6f 20 48 61 6e 64 6c |bye-bye |to Handl|
|00000e50| 65 73 2e 0d 09 09 5f 48 | 55 6e 6c 6f 63 6b 0d 09 |es...._H|Unlock..|
|00000e60| 09 5f 44 69 73 70 6f 73 | 48 61 6e 64 6c 65 0d 09 |._Dispos|Handle..|
|00000e70| 09 6d 6f 76 65 2e 6c 09 | 70 6f 70 75 70 4d 65 6e |.move.l.|popupMen|
|00000e80| 75 48 64 6c 2c 61 30 0d | 09 09 5f 48 55 6e 6c 6f |uHdl,a0.|.._HUnlo|
|00000e90| 63 6b 0d 09 09 5f 44 69 | 73 70 6f 73 48 61 6e 64 |ck..._Di|sposHand|
|00000ea0| 6c 65 0d 65 6e 64 09 09 | 47 65 74 43 75 72 73 6f |le.end..|GetCurso|
|00000eb0| 72 09 23 77 61 74 63 68 | 43 75 72 73 6f 72 2c 3d |r.#watch|Cursor,=|
|00000ec0| 61 30 0d 09 09 53 65 74 | 43 75 72 73 6f 72 09 28 |a0...Set|Cursor.(|
|00000ed0| 61 30 29 0d 09 09 5f 45 | 78 69 74 54 6f 53 68 65 |a0)..._E|xitToShe|
|00000ee0| 6c 6c 0d 09 09 0d 0d 3b | 20 3d 3d 3d 3d 3d 3d 3d |ll.....;| =======|
|00000ef0| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 3b 20 44 61 74 61 20 |========|.; Data |
|00000f00| 42 6c 6f 63 6b 20 3a 0d | 3b 20 3d 3d 3d 3d 3d 3d |Block :.|; ======|
|00000f10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 20 0d 49 63 6f 6e |========|=. .Icon|
|00000f20| 4d 61 70 09 09 64 63 2e | 6c 09 30 09 09 3b 20 50 |Map..dc.|l.0..; P|
|00000f30| 6f 69 6e 74 65 72 20 74 | 6f 20 42 69 74 4d 61 70 |ointer t|o BitMap|
|00000f40| 2e 0d 09 09 64 63 2e 77 | 09 34 09 09 3b 20 72 6f |....dc.w|.4..; ro|
|00000f50| 77 42 79 74 65 73 2e 0d | 09 09 64 63 2e 77 09 30 |wBytes..|..dc.w.0|
|00000f60| 2c 30 09 09 3b 20 74 6f | 70 2c 6c 65 66 74 2e 0d |,0..; to|p,left..|
|00000f70| 09 09 64 63 2e 77 09 33 | 32 2c 33 32 09 09 3b 20 |..dc.w.3|2,32..; |
|00000f80| 62 6f 74 74 6f 6d 2c 72 | 69 67 68 74 2e 0d 00 00 |bottom,r|ight....|
|00000f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001000| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00001010| 20 73 63 72 65 65 6e 20 | 64 75 6d 70 73 20 61 73 | screen |dumps as|
|00001020| 20 50 49 43 54 75 72 65 | 20 66 69 6c 65 73 2e 0d | PICTure| files..|
|00001030| 0d 50 6f 70 75 70 44 65 | 6d 6f 2e 61 73 6d 02 00 |.PopupDe|mo.asm..|
|00001040| 00 00 54 45 58 54 45 44 | 49 54 01 06 00 00 00 80 |..TEXTED|IT......|
|00001050| 00 00 54 45 58 54 45 44 | 49 54 01 06 00 00 00 80 |..TEXTED|IT......|
|00001060| 00 00 11 b1 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001070| 00 00 a0 8b 56 f4 00 00 | 0f 0e 00 00 01 5c 6f 77 |....V...|.....\ow|
|00001080| 6e 65 64 44 52 56 52 09 | 65 71 75 09 2d 24 34 30 |nedDRVR.|equ.-$40|
|00001090| 30 30 09 09 3b 20 53 65 | 74 20 42 69 74 73 20 23 |00..; Se|t Bits #|
|000010a0| 31 35 20 26 20 23 31 34 | 7b 24 43 30 30 30 7d 20 |15 & #14|{$C000} |
|000010b0| 2d 20 36 35 35 33 36 2e | 0d 64 72 76 72 49 44 09 |- 65536.|.drvrID.|
|000010c0| 09 65 71 75 09 32 35 09 | 09 3b 20 55 6e 69 74 20 |.equ.25.|.; Unit |
|000010d0| 23 20 3d 20 7c 20 52 65 | 66 20 23 20 2b 20 31 20 |# = | Re|f # + 1 |
|000010e0| 7c 2e 0d 44 41 6f 66 66 | 09 09 65 71 75 09 6f 77 ||..DAoff|..equ.ow|
|000010f0| 6e 65 64 44 52 56 52 20 | 4f 52 20 28 64 72 76 72 |nedDRVR |OR (drvr|
|00001100| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f f2 00 00 |.......M|onaco...|
|00001110| 00 04 00 06 00 08 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|00001120| 00 16 00 00 00 46 00 01 | e1 44 03 ae 00 00 00 1c |.....F..|.D......|
|00001130| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|00001140| 00 00 00 1e 03 eb ff ff | 00 00 00 00 00 02 c1 fc |........|........|
|00001150| 03 ec ff ff 00 00 00 0e | 00 02 c2 04 00 00 00 00 |........|........|
|00001160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+